home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Borland Visual dBASE Professiona v7.0 / DATA1.CAB / Sample_dBASE / Fishbars.wfm < prev    next >
Encoding:
Text File  |  1997-11-20  |  9.2 KB  |  396 lines
  1. //--------------------------------------------------------------
  2. //
  3. //  FishBars.wfm --  Fish Data Entry Form with custom Toolbars
  4. //
  5. //  This MDI data entry form demonstrates how to attach
  6. //  custom toolbars to a form.
  7. ////
  8. //  Dependencies: FISH.DBF
  9. //                WATER.JPG
  10. //                CLIPBAR.PRG
  11. //                EDITBAR.PRG
  12. //                VCRBAR.PRG
  13. //
  14. //  BDE Alias:    VDBSAMPLES
  15. //
  16. //  Visual Samples Group
  17. //
  18. //  $Revision:   1.17  $
  19. //
  20. //  Copyright (c) 1997, Borland International, Inc. 
  21. //  All rights reserved.
  22. //
  23. //---------------------------------------------------------------
  24. set talk off
  25. set ldCheck off
  26. ** END HEADER -- do not remove this line
  27. //
  28. // Generated on 11/01/97
  29. //
  30. parameter bModal
  31. local f
  32. f = new FISHBARSFORM()
  33. if (bModal)
  34.    f.mdi = false // ensure not MDI
  35.    f.readModal()
  36. else
  37.    f.open()
  38. endif
  39.  
  40. class FISHBARSFORM of FORM
  41.    with (this)
  42.       onClose = {; _app.speedbar := true}
  43.       open = class::FORM_OPEN
  44.       scaleFontSize = 8
  45.       scaleFontBold = false
  46.       height = 17.05
  47.       left = 21.5
  48.       top = 0.0526
  49.       width = 59.8333
  50.       text = "FishBars with custom toolbars"
  51.       background = 'filename "water.jpg"'
  52.    endwith
  53.  
  54.  
  55.    this.SESSIONFISH = new SESSION()
  56.    this.SESSIONFISH.parent = this
  57.    with (this.SESSIONFISH)
  58.       left = 0
  59.       top = 0
  60.       lockRetryInterval = 0
  61.    endwith
  62.  
  63.  
  64.    this.VDBSAMPLE1 = new DATABASE()
  65.    this.VDBSAMPLE1.parent = this
  66.    with (this.VDBSAMPLE1)
  67.       left = 4
  68.       top = 0
  69.       databaseName = "VDBSAMPLE"
  70.       session = form.SESSIONFISH
  71.       active = true
  72.    endwith
  73.  
  74.  
  75.    this.FISH1 = new QUERY()
  76.    this.FISH1.parent = this
  77.    with (this.FISH1)
  78.       left = 8
  79.       top = 0
  80.       database = form.vdbsample1
  81.       sql = 'SELECT ID, Name, Species, Fish."Length CM", Description, Fish."OLE Graphic" from "fish.dbf" Fish'
  82.       active = true
  83.    endwith
  84.  
  85.    this.TITLETEXT = new TEXT(this)
  86.    with (this.TITLETEXT)
  87.       height = 2
  88.       left = 1
  89.       top = 0.25
  90.       width = 57
  91.       metric = 0
  92.       colorNormal = "R/BtnFace"
  93.       alignVertical = 1
  94.       alignHorizontal = 1
  95.       transparent = true
  96.       text = "<H1>Fish of the World</H1>"
  97.    endwith
  98.  
  99.    this.LABELSPECIES = new TEXT(this)
  100.    with (this.LABELSPECIES)
  101.       height = 1
  102.       left = 3
  103.       top = 2.5
  104.       width = 12
  105.       metric = 0
  106.       colorNormal = "BtnText"
  107.       alignVertical = 1
  108.       transparent = true
  109.       fontName = "MS Sans Serif"
  110.       fontSize = 8
  111.       fontBold = true
  112.       text = "Fish ID:"
  113.    endwith
  114.  
  115.  
  116.    this.ENTRYID = new ENTRYFIELD(this)
  117.    with (this.ENTRYID)
  118.       enabled = false
  119.       height = 1
  120.       left = 16
  121.       top = 2.5
  122.       width = 9
  123.       metric = 0
  124.       dataLink = form.fish1.rowset.fields["ID"]
  125.       picture = "9999999"
  126.       colorHighLight = ""
  127.       fontName = "MS Sans Serif"
  128.       fontSize = 8
  129.       validRequired = true
  130.       borderStyle = 7
  131.    endwith
  132.  
  133.  
  134.    this.LABELCOMMONNAME = new TEXT(this)
  135.    with (this.LABELCOMMONNAME)
  136.       height = 1
  137.       left = 3
  138.       top = 3.5
  139.       width = 12
  140.       metric = 0
  141.       colorNormal = "BtnText"
  142.       alignVertical = 1
  143.       transparent = true
  144.       fontName = "MS Sans Serif"
  145.       fontSize = 8
  146.       fontBold = true
  147.       text = "Name:"
  148.    endwith
  149.  
  150.  
  151.    this.ENTRYNAME = new ENTRYFIELD(this)
  152.    with (this.ENTRYNAME)
  153.       height = 1
  154.       left = 16
  155.       top = 3.5
  156.       width = 30
  157.       metric = 0
  158.       dataLink = form.fish1.rowset.fields["Name"]
  159.       colorHighLight = ""
  160.       fontName = "MS Sans Serif"
  161.       fontSize = 8
  162.       validRequired = true
  163.       borderStyle = 7
  164.    endwith
  165.  
  166.  
  167.    this.LABELCATEGORY = new TEXT(this)
  168.    with (this.LABELCATEGORY)
  169.       height = 1
  170.       left = 3
  171.       top = 4.5
  172.       width = 12
  173.       metric = 0
  174.       colorNormal = "BtnText"
  175.       alignVertical = 1
  176.       transparent = true
  177.       fontName = "MS Sans Serif"
  178.       fontSize = 8
  179.       fontBold = true
  180.       text = "Category:"
  181.    endwith
  182.  
  183.  
  184.    this.ENTRYSPECIES = new ENTRYFIELD(this)
  185.    with (this.ENTRYSPECIES)
  186.       height = 1
  187.       left = 16
  188.       top = 4.5
  189.       width = 30
  190.       metric = 0
  191.       dataLink = form.fish1.rowset.fields["Species"]
  192.       colorHighLight = ""
  193.       fontName = "MS Sans Serif"
  194.       fontSize = 8
  195.       validRequired = true
  196.       borderStyle = 7
  197.    endwith
  198.  
  199.  
  200.    this.SPIN_CM = new SPINBOX(this)
  201.    with (this.SPIN_CM)
  202.       onChange = class::SPIN_CM_ONCHANGE
  203.       height = 1
  204.       left = 16
  205.       top = 5.5
  206.       width = 10
  207.       metric = 0
  208.       dataLink = form.fish1.rowset.fields["Length CM"]
  209.       picture = "999.99"
  210.       colorHighLight = ""
  211.       rangeMax = 100
  212.       rangeMin = 1
  213.       fontName = "MS Sans Serif"
  214.       fontSize = 8
  215.       validRequired = true
  216.    endwith
  217.  
  218.  
  219.    this.LABELCM = new TEXT(this)
  220.    with (this.LABELCM)
  221.       height = 1
  222.       left = 27
  223.       top = 5.5
  224.       width = 4
  225.       metric = 0
  226.       colorNormal = "BtnText"
  227.       alignVertical = 1
  228.       transparent = true
  229.       fontName = "MS Sans Serif"
  230.       fontSize = 8
  231.       fontBold = true
  232.       text = "CM"
  233.    endwith
  234.  
  235.  
  236.    this.LABELLENGTH = new TEXT(this)
  237.    with (this.LABELLENGTH)
  238.       height = 1
  239.       left = 3
  240.       top = 5.5
  241.       width = 12
  242.       metric = 0
  243.       colorNormal = "BtnText"
  244.       alignVertical = 1
  245.       transparent = true
  246.       fontName = "MS Sans Serif"
  247.       fontSize = 8
  248.       fontBold = true
  249.       text = "Length:"
  250.    endwith
  251.  
  252.  
  253.    this.SPIN_INCHES = new SPINBOX(this)
  254.    with (this.SPIN_INCHES)
  255.       onChange = class::SPIN_INCHES_ONCHANGE
  256.       height = 1
  257.       left = 32
  258.       top = 5.5
  259.       width = 10
  260.       metric = 0
  261.       picture = "999.99"
  262.       colorHighLight = ""
  263.       rangeMax = 100
  264.       rangeMin = 1
  265.       fontName = "MS Sans Serif"
  266.       fontSize = 8
  267.       value = 1
  268.       validRequired = true
  269.       borderStyle = 7
  270.    endwith
  271.  
  272.  
  273.    this.LABELINCHES = new TEXT(this)
  274.    with (this.LABELINCHES)
  275.       height = 1
  276.       left = 43
  277.       top = 5.5
  278.       width = 10
  279.       metric = 0
  280.       colorNormal = "BtnText"
  281.       alignVertical = 1
  282.       transparent = true
  283.       fontName = "MS Sans Serif"
  284.       fontSize = 8
  285.       fontBold = true
  286.       text = "Inches"
  287.    endwith
  288.  
  289.  
  290.    this.BOOKFISH = new NOTEBOOK(this)
  291.    with (this.BOOKFISH)
  292.       height = 9.5
  293.       left = 2
  294.       top = 7
  295.       width = 56
  296.       metric = 0
  297.       colorNormal = "BtnFace"
  298.       fontName = "MS Sans Serif"
  299.       fontSize = 8
  300.       dataSource = 'ARRAY {"OLE Graphic", "Description"}'
  301.       borderStyle = 5
  302.    endwith
  303.  
  304.  
  305.    this.BOOKFISH.OLEGRAPHIC = new OLE(this.BOOKFISH)
  306.    with (this.BOOKFISH.OLEGRAPHIC)
  307.       alignment = 3
  308.       height = 6.75
  309.       left = 9.3333
  310.       top = 1.5
  311.       width = 35
  312.       metric = 0
  313.       dataLink = parent.parent.fish1.rowset.fields["OLE Graphic"]
  314.       border = false
  315.    endwith
  316.  
  317.  
  318.    this.BOOKFISH.EDITORDESC = new EDITOR(this.BOOKFISH)
  319.    with (this.BOOKFISH.EDITORDESC)
  320.       height = 7.2727
  321.       left = 1
  322.       top = 1.5
  323.       width = 52
  324.       metric = 0
  325.       fontName = "MS Sans Serif"
  326.       fontSize = 8
  327.       dataLink = parent.parent.fish1.rowset.fields["Description"]
  328.       cuaTab = true
  329.       pageno = 2
  330.       popupEnable = false
  331.    endwith
  332.  
  333.  
  334.    this.rowset = this.fish1.rowset
  335.  
  336.    // {Linked Method} form.open
  337.    function Form_Open
  338.       _app.speedbar := false // turn off default toolbar
  339.       this.SPIN_INCHES.value := (this.SPIN_CM.value / 2.54)
  340.  
  341.       with ( this.rowset )
  342.          onAbandon  := class::refreshInches
  343.          onDelete   := class::refreshInches
  344.          onNavigate := class::refreshInches
  345.          onSave     := class::refreshInches         
  346.          canAppend  := class::canAppendFish
  347.       endwith
  348.  
  349.       // attach toolbars
  350.       DO "clipbar.prg" WITH this
  351.       DO "editbar.prg" WITH this
  352.       DO "vcrbar.prg"  WITH this  
  353.  
  354.    return ( FISHBARSFORM::Open() )
  355.  
  356.    function canAppendFish
  357.       with ( this.parent.parent.SPIN_INCHES )
  358.          onChange := null
  359.          value    := null
  360.          onChange := class::SPIN_INCHES_onChange
  361.       endwith      
  362.       this.parent.parent.refresh()
  363.    return true
  364.  
  365.    function refreshInches
  366.       local thisForm
  367.       thisForm = this.parent.parent
  368.       with ( thisForm.SPIN_INCHES )
  369.          onChange := null
  370.          value    := IIF( thisForm.SPIN_CM.datalink.parent.parent.endOfSet, ;
  371.                           null, ;
  372.                        ( thisForm.SPIN_CM.datalink.value / 2.54 ) )
  373.          onChange := class::SPIN_INCHES_onChange
  374.       endwith
  375.    return ( thisForm.SPIN_INCHES.value )  
  376.  
  377.    // {Linked Method} form.spin_cm.onChange
  378.    function SPIN_CM_OnChange
  379.       with ( this.form.SPIN_INCHES )
  380.          onChange := null
  381.          value    := (this.value / 2.54)
  382.          onChange := class::SPIN_INCHES_onChange
  383.       endwith
  384.    return ( this.value )
  385.  
  386.    // {Linked Method} form.spin_inches.onChange
  387.    function SPIN_INCHES_OnChange
  388.       with ( this.form.SPIN_CM )
  389.          onChange       := null
  390.          datalink.value := (this.value * 2.54)
  391.          onChange       := class::SPIN_CM_onChange
  392.       endwith
  393.       this.form.rowset.refreshControls()
  394.    return ( this.value )
  395. endclass
  396.